(fortran-window-create): Account for scroll

bar width.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 312fb68293021c70b35929d80be55ee747831ec3..1109f99aa5f400a7eb1da84c593a339ca44575d7 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -808,7 +808,11 @@ See also `fortran-window-create-momentarily'."
          (if (< (window-width) (frame-width))
              (enlarge-window-horizontally (- (frame-width)
                                              (window-width) 1)))
-         (split-window-horizontally 73)
+         (let* ((window-edges (window-edges))
+                (scroll-bar-width (- (nth 2 window-edges)
+                                     (car window-edges)
+                                     (window-width))))
+           (split-window-horizontally (+ 72 scroll-bar-width)))
          (other-window 1)
          (switch-to-buffer " fortran-window-extra" t)
          (select-window (previous-window))))